(next-history-element): Special error message if no default.

diff --git a/lisp/simple.el b/lisp/simple.el
index 54e91112069c9a3db74038cf743651c31edba2ee..24e7597ff4dca61c202b0db8764b00c3f93bd0e1 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -783,7 +783,9 @@ An uppercase letter in REGEXP makes the search case-sensitive."
                 (null minibuffer-text-before-history))
            (setq minibuffer-text-before-history (buffer-string)))
        (if (< narg minimum)
-           (error "End of history; no next item"))
+           (if minibuffer-default
+               (error "End of history; no next item")
+             (error "End of history; no default available")))
        (if (> narg (length (symbol-value minibuffer-history-variable)))
            (error "Beginning of history; no preceding item"))
        (erase-buffer)